www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/Index_dy.asp

    <div align="center">
	<table border="0" cellpadding="0" cellspacing="0" height="28">
		<tr>

<%

    TopSortSql="select top 8 * from Gu_kind where ((B_id=0 or daohang<>'') and hide<>1) and Ldaohang=1 order by order_1"
    Set RsTopSort=conn.execute (TopSortSql)
    With RsTopSort
    if .eof and .bof then
    Response.write "<td align='center'>没有栏目</td>"
    else
    do while not .eof
    '==================
    if RsTopSort("daohang")<>"" then
    daohang=RsTopsort("daohang")
    else
    daohang=" ku_type.asp?Ku_ID="&RsTopSort("ID")&" "
    end if
    '==================
    response.write "<td>"
    response.write "<div align=right>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 height=20>"

    response.write "<tr>"
    response.write "<td>"
    response.write "<p align=center>"

    if RsTopSort("blank")=true then

    Response.Write("<A href='"&daohang&"' target='_blank'><b><span style='letter-spacing: 2px'>"  & RsTopSort("artname") & "</span></b></a>")
    response.write "<FONT color=#999966>|</font>"

    else

    Response.Write("<A href='"&daohang&"'><b><span style='letter-spacing: 2px'>"  & RsTopSort("artname") & "</span></b></a>")
    response.write "<FONT color=#999966>|</font>"

    end if

    response.write "</td>"
    response.write "<td width=2 ></td>"
    response.write "</tr>"

    response.write "</table>"
    response.write "</div>"
    response.write "</td>"

    .movenext  
    loop
    end if 
    .close 
    End With
    Set RsTopSort=Nothing
%>

			</td>

		</tr>
	</table>
</div>